SOHO - Exploring the Sun - 2003 Update/SOHO - Exploring the Sun - 2003 Update.iso/pc/data/macstart.dcr/00049.ls

Text File | 2003-02-25 | 621 b | 19 lines

on startMovie
  set rct to the rect of the stage
  set stagewidth to getAt(rct, 3) - getAt(rct, 1)
  set stageheight to getAt(rct, 4) - getAt(rct, 2)
  set screenwidth to (getAt(rct, 1) * 2) + stagewidth
  set screenheight to (getAt(rct, 2) * 2) + stageheight
  if (screenwidth < 800) or (screenheight < 600) then
    alert("Warning: The program should be ran at least in 800*600 resolution, you might encounter problems using the Hotshots-section.")
  end if
  set the alertHook to script "qtTest"
end

on stopMovie
  global phase
  if (phase <> 1) and (the machineType = 256) then
    open("releaser.exe")
  end if
end